Lab 4 part 2

First attach packages

Make an interactive map of Iris data:

iris_graph <- ggplot(data = iris, aes(x= Petal.Width, y = Petal.Length)) +
  geom_point(aes(size =Sepal.Width, 
                 color = Species)) +
  labs(x = "Petal width (cm)",
       y = "Petal length (cm)",
       title = "Iris metrics")

ggplotly(iris_graph)